<% db="jd100.mdb" '数据库 set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db) indexfilename="index.asp?action=manageusr" if Session("admin")="" then response.Write "" response.End else if session("flag")>1 then response.Write "" response.End end if end if dim action,admin,adminid action=request.QueryString("action") adminid=request.QueryString("id") 'response.Write(adminid) 'response.End() admin=trim(request("admin")) select case action '//修改数据 case "edit" set rs=server.CreateObject("adodb.recordset") rs.Open "select * from admin where ids="&adminid,conn,1,3 rs("username")=admin if trim(request("password"))<>"" then rs("password")=trim(request("password")) end if rs("flag")=int(request("flag")) rs.Update rs.Close set rs=nothing response.Write "" response.End '//添加新数据 case "add" set rs=server.CreateObject("adodb.recordset") rs.open "select * from admin",conn,1,3 rs.addnew rs("username")=trim(request("admin2")) rs("password")=trim(request("password2")) rs("flag")=int(request("flag2")) rs.update rs.close set rs=nothing response.Write "" response.End '//删除数据 case "del" conn.execute ("delete from admin where ids="&request.QueryString("id")) response.Redirect indexfilename end select %>